Inference at * 2 1 
Iof proof for Lemma assert of eq atom:



1. x : Atom
2. y : Atom
3. x = y
  tt 

latex

 by ((RW assert_evalC 0) 
CollapseTHEN ((Auto_aux (first_nat 1:n) ((first_nat 1:n),(first_nat 4:n
C)) (first_tok :t) inil_term))) 

latex

C.

Definitions

t  T, True, if b then t else f fi , tt, b